Check this out!

https://www.rstudio.com/resources/cheatsheets/

require(ggplot2)
require(plotly)
require(dplyr)
diamonds %>%
  ggplot(aes(x=depth, fill=cut)) + 
  geom_histogram(binwidth = .2) +
  xlim(55,70) + 
  facet_wrap(~cut)
## Warning: Removed 45 rows containing non-finite values (stat_bin).
## Warning: Removed 10 rows containing missing values (geom_bar).

interactive_plot <- pokemons %>%
  ggplot(aes(x=type, fill=factor(type))) + 
  geom_bar() + 
  coord_flip() + 
  theme_minimal()

ggplotly(interactive_plot)
pokemons %>%
  ggplot(aes(x=type, fill=factor(type))) +
  geom_bar(alpha=.5) + 
  geom_point(mapping = aes(y = hp)) +
  coord_flip()